home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / G / GEnie HyperLibrary.cpt / GEnie HyperLibrary / background_2143.txt < prev    next >
Text File  |  1988-03-14  |  7KB  |  320 lines
  1. -- background: 2143 from stack: in
  2. -- bmap block id: 68399
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Library
  6. ----- HyperTalk script -----
  7. on openCard
  8.   put the number of this card into field "card#"
  9. end openCard
  10.  
  11.  
  12. -- part 24 (button)
  13. -- low flags: 00
  14. -- high flags: 0000
  15. -- rect: left=27 top=191 right=214 bottom=50
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 1014 / 1014
  18. -- text alignment: 1
  19. -- font id: 0
  20. -- text size: 12
  21. -- style flags: 0
  22. -- line height: 16
  23. -- part name: New Button
  24. ----- HyperTalk script -----
  25. on mouseUp
  26.   visual dissolve
  27.   go prev
  28. end mouseUp
  29.  
  30.  
  31.  
  32. -- part 25 (button)
  33. -- low flags: 00
  34. -- high flags: 0000
  35. -- rect: left=125 top=191 right=214 bottom=148
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 1013 / 1013
  38. -- text alignment: 1
  39. -- font id: 0
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: New Button
  44. ----- HyperTalk script -----
  45. on mouseUp
  46.   visual dissolve
  47.   go next
  48. end mouseUp
  49.  
  50.  
  51.  
  52. -- part 26 (button)
  53. -- low flags: 80
  54. -- high flags: 8002
  55. -- rect: left=427 top=327 right=342 bottom=490
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 0 / 0
  58. -- text alignment: 1
  59. -- font id: 0
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: Filter
  64. ----- HyperTalk script -----
  65. on mouseUp
  66.   repeat for the number of cards
  67.     put word 1 of field 1 into field "number"
  68.     delete word 1 of field 1
  69.     put last word of field 1 into field "library"
  70.     delete last word of field 1
  71.     put last word of field 1 into field "access"
  72.     delete last word of field 1
  73.     put last word of field 1 into field "bytes"
  74.     delete last word of field 1
  75.     put last word of field 1 into field "date"
  76.     delete last word of field 1
  77.     put last word of field 1 into field "address"
  78.     delete last word of field 1
  79.     put last word of field 1 into field "type"
  80.     delete last word of field 1
  81.     put field 1 into field "fileName"
  82.     go next
  83.   end repeat
  84. end mouseUp
  85.  
  86.  
  87.  
  88. -- part 38 (field)
  89. -- low flags: 01
  90. -- high flags: 4002
  91. -- rect: left=130 top=214 right=261 bottom=148
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 0
  95. -- font id: 3
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 16
  99. -- part name: chex
  100. ----- HyperTalk script -----
  101. on mouseUp
  102.   put item 2 of the clickLoc into cLoc
  103.   put item 2 of rect of me into rec
  104.   put textheight of me into texhi
  105.   put 1 + (cLoc - rec) div texhi into cLine
  106.   if line cLine of field "chex" is empty then put "‚àö" into line cline of field "chex"
  107.   else put empty into line cline of field "chex"
  108. end mouseUp
  109.  
  110.  
  111.  
  112. -- part 40 (button)
  113. -- low flags: 00
  114. -- high flags: 8002
  115. -- rect: left=27 top=214 right=229 bottom=131
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 1
  119. -- font id: 0
  120. -- text size: 12
  121. -- style flags: 0
  122. -- line height: 16
  123. -- part name: Gotta Get It!!
  124. ----- HyperTalk script -----
  125. on mouseUp
  126.   if line 1 of field "chex" is empty
  127.   then put "‚àö" into line 1 of field "chex"
  128. else put empty into line 1 of field "chex"
  129. end mouseUp
  130.  
  131.  
  132.  
  133. -- part 41 (button)
  134. -- low flags: 00
  135. -- high flags: 8002
  136. -- rect: left=27 top=228 right=245 bottom=131
  137. -- title width / last selected line: 0
  138. -- icon id / first selected line: 0 / 0
  139. -- text alignment: 1
  140. -- font id: 0
  141. -- text size: 12
  142. -- style flags: 0
  143. -- line height: 16
  144. -- part name: Already Have
  145. ----- HyperTalk script -----
  146. on mouseUp
  147.   if line 2 of field "chex" is empty
  148.   then put "‚àö" into line 2 of field "chex"
  149. else put empty into line 2 of field "chex"
  150. end mouseUp
  151.  
  152.  
  153.  
  154. -- part 42 (button)
  155. -- low flags: 00
  156. -- high flags: 8002
  157. -- rect: left=27 top=244 right=261 bottom=131
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 0 / 0
  160. -- text alignment: 1
  161. -- font id: 0
  162. -- text size: 12
  163. -- style flags: 0
  164. -- line height: 16
  165. -- part name: Maybe I Want
  166. ----- HyperTalk script -----
  167. on mouseUp
  168.   if line 3 of field "chex" is empty
  169.   then put "‚àö" into line 3 of field "chex"
  170. else put empty into line 3 of field "chex"
  171. end mouseUp
  172.  
  173.  
  174.  
  175. -- part 43 (field)
  176. -- low flags: 00
  177. -- high flags: 0000
  178. -- rect: left=88 top=29 right=175 bottom=342
  179. -- title width / last selected line: 0
  180. -- icon id / first selected line: 0 / 0
  181. -- text alignment: 0
  182. -- font id: 3
  183. -- text size: 12
  184. -- style flags: 0
  185. -- line height: 16
  186. -- part name: info
  187.  
  188.  
  189. -- part 45 (button)
  190. -- low flags: 00
  191. -- high flags: 8000
  192. -- rect: left=52 top=191 right=213 bottom=123
  193. -- title width / last selected line: 0
  194. -- icon id / first selected line: 0 / 0
  195. -- text alignment: 1
  196. -- font id: 0
  197. -- text size: 12
  198. -- style flags: 0
  199. -- line height: 16
  200. -- part name: Report
  201. ----- HyperTalk script -----
  202. on mouseUp
  203.   push card
  204.   visual dissolve
  205.   go to card id 4795
  206. end mouseUp
  207.  
  208.  
  209.  
  210.  
  211. -- part 46 (field)
  212. -- low flags: 01
  213. -- high flags: 0000
  214. -- rect: left=4 top=29 right=175 bottom=89
  215. -- title width / last selected line: 0
  216. -- icon id / first selected line: 0 / 0
  217. -- text alignment: 0
  218. -- font id: 3
  219. -- text size: 12
  220. -- style flags: 0
  221. -- line height: 16
  222. -- part name: fieldNames
  223. ----- HyperTalk script -----
  224. on mouseUp
  225.   if the optionKey is down then
  226.     put item 2 of the clickLoc into cLoc
  227.     put item 2 of rect of me into rec
  228.     put textheight of me into texhi
  229.     put 1 + (cLoc - rec) div texhi into cLine
  230.     answer "In which direction would you like to sort?" with "Ascending" or "Descending" or "Cancel"
  231.     if it is "Cancel" then exit mouseUp
  232.     if it is "Descending" then sort descending numeric by line cLine of field "Info"
  233.     else sort numeric by line cline of field "info'
  234.   else exit mouseUp
  235. end mouseUp
  236.  
  237.  
  238.  
  239. -- part 47 (field)
  240. -- low flags: 01
  241. -- high flags: 0002
  242. -- rect: left=72 top=264 right=282 bottom=104
  243. -- title width / last selected line: 0
  244. -- icon id / first selected line: 0 / 0
  245. -- text alignment: 0
  246. -- font id: 3
  247. -- text size: 12
  248. -- style flags: 0
  249. -- line height: 16
  250. -- part name: card#
  251.  
  252.  
  253. -- part 48 (button)
  254. -- low flags: 00
  255. -- high flags: 0000
  256. -- rect: left=29 top=290 right=325 bottom=65
  257. -- title width / last selected line: 0
  258. -- icon id / first selected line: 1020 / 1020
  259. -- text alignment: 1
  260. -- font id: 0
  261. -- text size: 12
  262. -- style flags: 0
  263. -- line height: 16
  264. -- part name: New Button
  265. ----- HyperTalk script -----
  266. on mouseUp
  267.   push card
  268.   visual dissolve
  269.   go card "help"
  270.   wait 3 seconds
  271.   show card field "help"
  272. end mouseUp
  273.  
  274.  
  275.  
  276. -- part 50 (button)
  277. -- low flags: 00
  278. -- high flags: 0000
  279. -- rect: left=72 top=290 right=325 bottom=108
  280. -- title width / last selected line: 0
  281. -- icon id / first selected line: 12478 / 12478
  282. -- text alignment: 1
  283. -- font id: 0
  284. -- text size: 12
  285. -- style flags: 0
  286. -- line height: 16
  287. -- part name: New Button
  288. ----- HyperTalk script -----
  289. on mouseUp
  290.   push card
  291.   visual dissolve
  292.   go card "help"
  293.   wait for 3 seconds
  294.   show card field "/\/\/"
  295. end mouseUp
  296.  
  297.  
  298.  
  299. -- part 51 (button)
  300. -- low flags: 00
  301. -- high flags: 0000
  302. -- rect: left=286 top=178 right=339 bottom=510
  303. -- title width / last selected line: 0
  304. -- icon id / first selected line: 0 / 0
  305. -- text alignment: 1
  306. -- font id: 0
  307. -- text size: 12
  308. -- style flags: 0
  309. -- line height: 16
  310. -- part name: New Button
  311. ----- HyperTalk script -----
  312. on mouseUp
  313.   push card
  314.   visual dissolve
  315.   go card "help"
  316.   wait for 3 seconds
  317.   show card field "/\/\/"
  318. end mouseUp
  319.  
  320.